object frmPedidosCotizacion: TfrmPedidosCotizacion
  Left = 68
  Top = 100
  Width = 811
  Height = 559
  Caption = 'Pedidos de Cotizaci'#243'n'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  DesignSize = (
    803
    525)
  PixelsPerInch = 96
  TextHeight = 13
  object lblFechaIni: TLabel
    Left = 12
    Top = 16
    Width = 28
    Height = 13
    Caption = 'Inicio:'
  end
  object lblFechaFin: TLabel
    Left = 138
    Top = 16
    Width = 25
    Height = 13
    Caption = 'Final:'
  end
  object Label5: TLabel
    Left = 393
    Top = 5
    Width = 25
    Height = 26
    Alignment = taCenter
    Caption = 'Filtrar por:'
    WordWrap = True
  end
  object btnNueva: TSpeedButton
    Left = 677
    Top = 7
    Width = 121
    Height = 26
    Anchors = [akTop, akRight]
    Caption = 'Nueva Cotizaci'#243'n'
    Flat = True
    Glyph.Data = {
      36050000424D3605000000000000360400002800000010000000100000000100
      0800000000000001000000000000000000000001000000010000000000000101
      01000202020003090300040F0400041A060005270700053B0800054909000557
      0A0004600A0004640B0005600B0005580B00074B0C00093E0D000C2D0E000E23
      0F00101C11001218120014141400151515001616160017171700181818001919
      19001A1A1A001B1B1B001C1C1C001D1D1D001E1E1E001F1F1F00202020002121
      2100222222002323230024242400252525002626260027272700282828002929
      29002A2A2A002B2B2B002C2C2C002D2D2D002E2E2E002F2F2F00303030003131
      3100323232003333330034343400353535003636360037373700383838003939
      39003A3A3A003B3B3B003C3C3C003D3D3D003E3E3E003F3F3F00404040004141
      4100424242004343430044444400454545004646460047474700484848004949
      49004A4A4A004B4B4B004C4C4C004D4D4D004E4E4E004F4F4F00505050005151
      5100525252005353530054545400555555005656560057575700625262007F44
      7F0097389700B926B900E011E000F405F400FB02FB00FE00FE00FE00FE00FE00
      FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
      FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
      FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
      FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
      FE00FE01FE00FD01FD00FC03FC00FA05FA00F708F700F20EF200EB16EB00E023
      E000D135D100C347C300B25DB200A86BA800A274A2009C7D9C00968796009191
      9100929292009393930094949400959595009696960097979700989898009999
      99009A9A9A009B9B9B009C9C9C009D9D9D009E9E9E009F9F9F00A0A0A000A1A1
      A100A2A2A200A3A3A300A4A4A400A5A5A500A6A6A600A7A7A700A8A8A800A9A9
      A900AAAAAA00ABABAB00AEB0B000B1B6B600B5C0C200B8CACD00BBD4D800BCDC
      E200C2E6EC00C6ECF200C8EFF500CAF2F800CDF3F900CAF4FA00C7F4FB00C5F5
      FC00C2F5FC00BDF5FC00B4F5FC00ACF5FC00A2F5FC0098F4FC0094F5FC0092F4
      FC008EF4FC008AF3FC0087F3FC0086F1FC0084EFFC0081EDFB007EEBFB007BE8
      FB0078E5FA0077E1FA0075DFF90071DDF9006DDAF90069D7F80065D3F80062D1
      F8005FD0F8005DCEF8005ACCF80058CAF70056C9F70054C7F60051C5F4004EC2
      F10048BDEA0041B6E2003BB1DC0035ACD70031A8D4002DA4D10029A0CE00279D
      CB002399C8002197C6001F94C4001B90C1001489BB000C7FB4000578AF000477
      AE000375AD000275AC000274AC000274AC000274AC000274AC000274AB000375
      A9000579A300087F9800108C89001A9D790021A96F0024AF680022AB610022AB
      590023AD4F0021AB490021AA420020A83C001EA638001BA2330070EEEEEEEEEE
      EEEEEEEEEEEEEEEE7070EEE6DBD0D9D9D9D9D9D9D9D9E2EE7070EEDDE4CBD7D7
      D7D7D7D7D7D7E1D0EE70EED5EEBFD2D2D2D2D2D2D2D2E0BFEE70EED2E7CCCBCE
      CECECECECECEDFBEEE70EECEDFDCBFCACACACACACA0BDEBEDAEEEECDD2E7B6BC
      BBBBBBBC0BFC0BB6B5EEEEC8C8E7EEEEEEEEEE0BF7F7FA0BEEEEEEC5C4C4C5C4
      C4C50BFAF7F7F7FA0B70EEB6C3C3C3C3C30B0B0B0BF7FA0B0B0B70EEB6C2C2C2
      F0DFDFDF0BF8FD0B70707070EEEEEEEE707070700BFA0B707070707070707070
      7070700BFFFF0B7070707070707070707070700BFF0B70707070707070707070
      700B0B0B0B707070707070707070700B0B0B0B70707070707070}
    OnClick = btnNuevaClick
  end
  object edtFechaIni: TDateEdit
    Left = 48
    Top = 10
    Width = 75
    Height = 21
    Ctl3D = False
    DefaultToday = True
    DialogTitle = 'Seleccione una Fecha'
    NumGlyphs = 2
    ParentCtl3D = False
    YearDigits = dyTwo
    TabOrder = 0
    Text = '07/12/06'
    OnChange = edtFechaIniChange
  end
  object edtFechaFin: TDateEdit
    Left = 177
    Top = 10
    Width = 95
    Height = 21
    Ctl3D = False
    DefaultToday = True
    NumGlyphs = 2
    ParentCtl3D = False
    YearDigits = dyTwo
    TabOrder = 1
    Text = '07/12/06'
    OnChange = edtFechaIniChange
  end
  object edtFiltro: TEdit
    Left = 424
    Top = 8
    Width = 121
    Height = 21
    BevelKind = bkFlat
    BorderStyle = bsNone
    CharCase = ecUpperCase
    TabOrder = 2
    OnChange = edtFiltroChange
    OnKeyPress = edtFiltroKeyPress
  end
  object btnDesfiltrar: TBitBtn
    Left = 552
    Top = 8
    Width = 25
    Height = 22
    Enabled = False
    TabOrder = 3
    OnClick = btnDesfiltrarClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
      993337777F777F3377F3393999707333993337F77737333337FF993399933333
      399377F3777FF333377F993339903333399377F33737FF33377F993333707333
      399377F333377FF3377F993333101933399377F333777FFF377F993333000993
      399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
      99333773FF777F777733339993707339933333773FF7FFF77333333999999999
      3333333777333777333333333999993333333333377777333333}
    NumGlyphs = 2
  end
  object grdSueldos: TRxDBGrid
    Left = 6
    Top = 40
    Width = 794
    Height = 479
    Hint = 'Doble click para abrir la Orden de Compra'
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = s
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    PopupMenu = pop
    ReadOnly = True
    ShowHint = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clNavy
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    OnCellClick = grdSueldosCellClick
    OnDblClick = grdSueldosDblClick
    OnTitleClick = grdSueldosTitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID_COTIZACION'
        Title.Alignment = taCenter
        Title.Caption = 'N'#186
        Width = 74
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'FECHA'
        Title.Alignment = taCenter
        Title.Caption = 'Fecha'
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RAZON'
        Title.Alignment = taCenter
        Title.Caption = 'Proveedor'
        Width = 211
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DENOMINACION'
        Title.Alignment = taCenter
        Title.Caption = 'Obra'
        Width = 219
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'obs'
        Title.Alignment = taCenter
        Title.Caption = 'Observaciones'
        Width = 165
        Visible = True
      end>
  end
  object cds: TSQLClientDataSet
    CommandText = 
      'SELECT '#13#10'  COTIZACION.ID_COTIZACION,'#13#10'  COTIZACION.FECHA,'#13#10'  COT' +
      'IZACION_PROVEEDOR.OBSERVACIONES,'#13#10'  COTIZACION.ID_OBRA,'#13#10'  COTIZ' +
      'ACION_PROVEEDOR.ID_PROVEEDOR,'#13#10'  PRESUPUESTO.DENOMINACION,'#13#10'  PR' +
      'OVEEDOR.RAZON'#13#10'FROM'#13#10'  COTIZACION'#13#10'  LEFT OUTER JOIN PRESUPUESTO' +
      ' ON (COTIZACION.ID_OBRA = PRESUPUESTO.ID_PRESUPUESTO)'#13#10'  INNER J' +
      'OIN COTIZACION_PROVEEDOR ON (COTIZACION.ID_COTIZACION = COTIZACI' +
      'ON_PROVEEDOR.ID_COTIZACION)'#13#10'  INNER JOIN PROVEEDOR ON (COTIZACI' +
      'ON_PROVEEDOR.ID_PROVEEDOR = PROVEEDOR.ID_PROVEEDOR)'#13#10'WHERE'#13#10'  CO' +
      'TIZACION.FECHA >= :FECHAINI AND '#13#10'  COTIZACION.FECHA <= :FECHAFI' +
      'N'#13#10'ORDER BY'#13#10'  COTIZACION.ID_COTIZACION DESC'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'FECHAINI'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'FECHAFIN'
        ParamType = ptInput
      end>
    OnCalcFields = cdsCalcFields
    DBConnection = Datos.Con
    Left = 280
    Top = 8
    object cdsID_COTIZACION: TIntegerField
      FieldName = 'ID_COTIZACION'
      Required = True
    end
    object cdsFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object cdsOBSERVACIONES: TMemoField
      FieldName = 'OBSERVACIONES'
      BlobType = ftMemo
      Size = 1
    end
    object cdsID_OBRA: TIntegerField
      FieldName = 'ID_OBRA'
    end
    object cdsDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Size = 50
    end
    object cdsRAZON: TStringField
      FieldName = 'RAZON'
      Required = True
      Size = 40
    end
    object cdsobs: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'obs'
      Size = 200
    end
    object cdsID_PROVEEDOR: TSmallintField
      FieldName = 'ID_PROVEEDOR'
      Required = True
    end
  end
  object s: TDataSource
    DataSet = cds
    Left = 312
    Top = 8
  end
  object pop: TPopupMenu
    Left = 224
    Top = 160
    object Abrircotizacin1: TMenuItem
      Caption = 'Abrir cotizaci'#243'n...'
      OnClick = grdSueldosDblClick
    end
    object ConfeccionarOC1: TMenuItem
      Caption = 'Confeccionar OC'
      OnClick = ConfeccionarOC1Click
    end
  end
end
